home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ian & Stuart's Australian Mac: Not for Sale
/
Another.not.for.sale (Australia).iso
/
fade into you
/
getting there
/
TCP⁄PPP⁄SLIP
/
Scripts
/
scr-minimal-dialing-script.txt
< prev
next >
Wrap
Text File
|
1994-03-11
|
1KB
|
45 lines
! Original script by Fred Morris
! Modifications and comments by Adam C. Engst
! 21-Feb-94 = Added redial feature (ACE)
@originate
! Initialize mode from string in InterSLIP configuration
note "Initializing modem"
write "^4\13"
pause 20
! Dial modem from number in InterSLIP configuration
note "Dialing ^1"
write "atdt^1\13"
! Check only for BUSY or CONNECT, then redial or connect
matchstr 1 10 "BUSY"
matchstr 2 20 "CONNECT"
matchread 500
@label 10
! The line is busy, so let's redial the modem indefinitely
! This will also redial after the (matchread 500) timeout if you get endless rings
note "Line busy, redialing ^1"
! First hang up and reinitialize modem from string in InterSLIP configuration
write "+++"
pause 60
write "ath\13"
write "^4\13"
! Then go back and dial again using phone number in InterSLIP configuration
jump originate
@label 20
! Everything worked fine, you're connected now
note "Dialed successfully"
exit 0
@answer
@hangup
! Hang up the modem and reinitialize from string in InterSLIP configuration
! The only way to get here is to manually click the Disconnect button
note "Hanging up modem"
write "+++"
pause 60
write "ath\13"
write "^4\13"
exit 0